home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 4.2 / arexx / editor / oz / 91-set-fine < prev    next >
Text File  |  1998-04-16  |  2KB  |  76 lines
  1. /* Set-Fine.rexx V1.3 -- Sets AUDIO and/or VIDEO clips to either Fine Tune or Quick Tune display modes - from the SELECTED icon through to a STOP icon or End of Project
  2.  
  3.  
  4. -- By Aussie - ©1995 Michael Holten          */
  5.  
  6. call remlib('PROJECT_REXX_PORT')
  7. call addlib('PROJECT_REXX_PORT',0)
  8.  
  9. start_loc=croutonspot()
  10. project_end=croutonsinproject()
  11. call croutonpick(start_loc)
  12.  
  13. current_spot=start_loc
  14.  
  15. /* --- wait for any screen update delay --- */
  16. call time('R')
  17. do while (time('E')<0.5)
  18.     end
  19.  
  20. call req_open("Set Fine Tune - by Aussie","------------------------","Sets video and/or audio clips, to Simple or Fine-Tune","window displays.  From SELECTED icon to END (or STOP icon)")
  21.  
  22. Mode=req_number("1:Simple  2:Fine Tune",2,1,2)
  23. call req_close()
  24. If Mode="CANCEL" then call quit()
  25. Mode=Mode-1
  26.  
  27. test=req_buttons("Now pick which clips to control...","11","Audio clips","Video clips")
  28. if test="CANCEL" | test="00" then call quit()
  29. if test="01" then cp=1
  30. if test="10" then cp=2
  31. if test="11" then cp=3
  32. if cp=1 then note1="Video clips only"
  33. if cp=2 then note1="Audio clips only"
  34. if cp=3 then note1="Both Video & Audio clips"
  35.  
  36. if test=0 then call quit()
  37.  
  38. current_spot=start_loc
  39.  
  40. do while (current_spot<project_end+1)
  41.    call croutonpick(current_spot)
  42.    current_spot=current_spot+1
  43.  
  44. /* ------------------ test for STOP icon */
  45.    if croutontype()="CTRL" then do
  46.       test=croutonname()
  47.       test1=right(test,length(test)-lastpos("/",test))
  48.       test3=("STOP" = upper(test1))
  49.       if test3=1 then do
  50.          call croutonpick(start_loc)
  51.          call req_error(" OZ:  All done, till STOP crouton     <<< Fine Tune Windows >>>")
  52.          call quit2()
  53.          end
  54.       end
  55.  
  56.    if ((cp=1 | cp=3) & croutontype()="CLIP") | (cp>1 & croutontype()=" AUD") then do
  57.       test=croutongettag(AUDIOON)
  58.       if test>2 then call croutonsettag(panelmode,Mode)
  59.       end
  60.    end
  61.  
  62. call croutonpick(start_loc)
  63. call req_error(" OZ:   All Done!      <<< Fine Tune Windows >>>")
  64. call remlib("PROJECT_REXX_PORT")
  65. exit
  66.  
  67.  
  68. quit:
  69. call croutonpick(start_loc)
  70. call req_error(" OZ:   <<< Last Operation Canceled >>>")
  71.  
  72. quit2:
  73. call remlib("PROJECT_REXX_PORT")
  74.  
  75. exit
  76.